home *** CD-ROM | disk | FTP | other *** search
/ Delphi Informant Complete 1995 - 2000 / Delphi Informant Complete 1995 to 2000.iso / Delphi Informant Magazine Complete Works SOURCE CODE 1995.rar / 1995 / JUN / CJ9506 / test.pas < prev    next >
Pascal/Delphi Source File  |  1995-05-04  |  1KB  |  62 lines
  1. unit Test;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, DBTables, DB, Grids, DBGrids, StdCtrls;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     DataSource1: TDataSource;
  12.     Table1: TTable;
  13.     DBGrid1: TDBGrid;
  14.     Table1EmpNo: TIntegerField;
  15.     Table1LastName: TStringField;
  16.     Table1FirstName: TStringField;
  17.     Table1PhoneExt: TStringField;
  18.     Table1HireDate: TDateTimeField;
  19.     Table1Salary: TFloatField;
  20.     Button1: TButton;
  21.     Button2: TButton;
  22.     Button3: TButton;
  23.     Button4: TButton;
  24.     procedure Button1Click(Sender: TObject);
  25.     procedure Button2Click(Sender: TObject);
  26.     procedure Button3Click(Sender: TObject);
  27.     procedure Button4Click(Sender: TObject);
  28.   private
  29.     { Private declarations }
  30.   public
  31.     { Public declarations }
  32.   end;
  33.  
  34. var
  35.   Form1: TForm1;
  36.  
  37. implementation
  38.  
  39. {$R *.DFM}
  40.  
  41. procedure TForm1.Button1Click(Sender: TObject);
  42. begin
  43.   ShowMessage(Table1LastName.Value);
  44. end;
  45.  
  46. procedure TForm1.Button2Click(Sender: TObject);
  47. begin
  48.   ShowMessage(Table1EmpNo.AsString);
  49. end;
  50.  
  51. procedure TForm1.Button3Click(Sender: TObject);
  52. begin
  53.   Table1.Next;
  54. end;
  55.  
  56. procedure TForm1.Button4Click(Sender: TObject);
  57. begin
  58.   Table1.Prior;
  59. end;
  60.  
  61. end.
  62.